home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / NEW / Q-Quantum Link / (n)q2.d64 / bodycalc (.txt) < prev    next >
Commodore BASIC  |  2007-02-25  |  9KB  |  357 lines
  1. 1 REM*****BODYCALC*****
  2. 2 BB=53280:SS=53281
  3. 3 POKEBB,0:POKESS,12:PRINT"[144]"
  4. 5 DIMA$(600,6),B$(600,6),Y$(50,6)
  5. 6 PRINTCHR$(147)
  6. 10 PRINTCHR$(147);TAB(9):FORR=1TO20:PRINT"[144][209]";:FORL=1TO30:NEXTL:NEXTR
  7. 11 FORR=1TO20:PRINTTAB(29)"[209]":FORL=1TO30:NEXTL:NEXTR:Q=30:FORR=1TO21:Q=Q-1
  8. 12 PRINT"";TAB(Q)"[209]":FORL=1TO30:NEXTL:NEXTR:FORR=1TO19
  9. 13 PRINTTAB(9);CHR$(145)+CHR$(145);"[209]":FORL=1TO30:NEXTL:NEXTR:PRINT""
  10. 14 PRINTTAB(10):FORR=1TO19:PRINT"[209]";:FORL=1TO30:NEXTL:NEXTR
  11. 15 PRINT"";TAB(10):FORR=1TO19:PRINT"[209]";:FORL=1TO30:NEXTL:NEXTR
  12. 16 PRINT"";TAB(15)"BODYCALC"
  13. 17 PRINTTAB(11)"[144]BY GREGG O. BYERS"
  14. 19 FORA=1TO3000:NEXT:PRINT"[147][144]"
  15. 29 GOTO3000
  16. 30 REM FOOD GROUP SEARCH
  17. 31 PRINTCHR$(147):PRINTTAB(7)"FOOD GROUP SEARCH[146]"
  18. 32 INPUT"ENTER FOOD/END";C$
  19. 33 IFC$="END"THEN3000
  20. 34 RESTORE:PRINTCHR$(147):R=0:G=0
  21. 35 PRINT"TYPE/PORTION";TAB(26)"CAL";TAB(30)"P";TAB(33)"F";TAB(35)"CARB[146]":PRINT
  22. 36 FORB=1TOX
  23. 37 IFA$(B,1)=C$THEN39
  24. 38 GOTO46
  25. 39 PRINTA$(B,2);TAB(26)A$(B,3);TAB(30)A$(B,4);TAB(33)A$(B,5);TAB(36)A$(B,6)
  26. 40 R=R+1:G=G+1
  27. 41 IFR<=16THEN46
  28. 42 IFR=17THENPRINT"PRESS <RETURN> TO CONTINUE LIST"
  29. 43 GETY$:IFY$=""THEN44
  30. 44 IFY$=CHR$(13)THENPRINTCHR$(147):R=0:PRINT"TYPE/PORTION","CAL","P","F","CARB[146]"
  31. 45 PRINTTAB(25)"P";TAB(28)"F";TAB(32)"CARB[146]":GOTO46
  32. 46 NEXTB
  33. 47 IFG=0THENPRINT"THAT FOOD NOT FOUND AS TYPED. TRY AGAIN":GOTO32
  34. 48 GOTO32
  35. 49 REM LISTING OF CALORIE INDEX
  36. 50 PRINTCHR$(147)
  37. 55 R=0
  38. 57 FORB=1TOX
  39. 60 R=R+1
  40. 65 PRINTA$(B,1),A$(B,2);TAB(35)B
  41. 67 IFR<=16THEN80
  42. 70 IFR=17THENPRINT"PRESS <RETURN> TO CONTINUE LIST"
  43. 72 PRINT"PRESS <C> TO COUNT CALORIES"
  44. 73 PRINT"PRESS <D> FOR DAILY MENU"
  45. 75 GETQ$:IFQ$=""THEN75
  46. 76 IFQ$=CHR$(13)THENPRINTCHR$(147):R=0:GOTO80
  47. 77 IFQ$="D"THEN4000
  48. 79 IFQ$="C"THEN97
  49. 80 NEXTB
  50. 81 PRINT"<L>TO LIST"
  51. 82 PRINT"<C>TO COUNT CALORIES"
  52. 83 PRINT"<D> FOR DAILY CALORIE MENU"
  53. 85 GETW$:IFW$=""THEN85
  54. 87 IFW$="L"THEN50
  55. 89 IFW$="C"THEN97
  56. 92 IFW$="D"THEN4000
  57. 93 GOTO85
  58. 95 GOTO85
  59. 96 REM CALORIE SEARCH
  60. 97 PRINTCHR$(147):POKESS,12:PRINTTAB(10)"COUNTING CALORIES[146]"
  61. 98 PRINT"ENTER FOOD OR <D>AILY MENU":INPUTC$
  62. 99 RESTORE:PRINTCHR$(147):R=0:G=0:IFC$="D"THEN4000
  63. 100 FORB=1TOX
  64. 103 IFA$(B,1)=C$THENR=R+1:G=G+1:PRINTA$(B,1),A$(B,2);TAB(35)B
  65. 104 IFR<=16THEN109
  66. 105 IFR=17THENPRINT"PRESS <RETURN> TO CONTINUE LIST"
  67. 106 GETY$:IFY$=""THEN106
  68. 107 IFY$=CHR$(13)THENPRINTCHR$(147):R=0:GOTO109
  69. 108 GOTO106
  70. 109 NEXTB
  71. 110 IFG=0THENPRINT"THAT FOOD NOT FOUND AS TYPED. TRY AGAIN":GOTO98
  72. 111 PRINT"PRESS <0> IF FOOD IS NOT LISTED[146]"
  73. 112 INPUT"NUMBER OF CHOICE";J
  74. 113 IFJ=0 THEN203
  75. 116 PRINTCHR$(147):C=VAL(A$(J,3)):D=D+C
  76. 117 PRINT""
  77. 118 E=VAL(A$(J,4)):F=F+E:G=VAL(A$(J,5)):H=H+G:I=VAL(A$(J,6)):K=K+I
  78. 119 PRINT"FOOD[146] ";A$(J,1):PRINTA$(J,2):PRINT"CALORIES[146] ";C
  79. 120 PRINT"PROTEIN[146] ";F
  80. 121 PRINT"FATS[146] ";H
  81. 122 PRINT"CARBOHYDRATES[146] ";K
  82. 130 PRINT"":PRINTTAB(15)"TOTAL CAL.[146]";D
  83. 131 U=U+1:Y$(U,1)=A$(J,1):Y$(U,2)=A$(J,2):Y$(U,3)=A$(J,3)
  84. 132 Y$(U,4)=A$(J,4):Y$(U,5)=A$(J,5):Y$(U,6)=A$(J,6)
  85. 202 PRINT""
  86. 203 PRINT"PRESS<C> TO CONTINUE"
  87. 204 PRINT"PRESS<D> FOR DAILY MENU"
  88. 205 PRINT"PRESS<L> TO LIST"
  89. 206 PRINT"PRESS<P> FOR PRINTOUT"
  90. 207 PRINT"PRESS<+> TO ENTER SAME ENTRY AGAIN"
  91. 210 GETL$:IFL$=""THEN210
  92. 215 IFL$="C"THEN97
  93. 217 IFL$="+"THENPRINTCHR$(147):GOTO116
  94. 220 IFL$="D"THEND=0:F=0:H=0:K=0:U=0:GOTO4000
  95. 225 IFL$="L"THEN50
  96. 226 IFL$="P"THEN228
  97. 227 GOTO210
  98. 228 INPUT"TYPE MONTH/DAY/YEAR";V$
  99. 229 OPEN1,4:CMD1:
  100. 230 PRINT#1,V$;" [168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168]"
  101. 231 PRINT#1,"FOOD";
  102. 232 PRINT#1,CHR$(16)"20";"AMOUNT";CHR$(16)"40";"CAL";CHR$(16)"45";"P";
  103. 233 PRINT#1,CHR$(16)"50";"F";CHR$(16)"55";"CARB"
  104. 234 PRINT#1
  105. 235 FORZ=1TOU
  106. 237 PRINT#1,Y$(Z,1);
  107. 238 PRINT#1,CHR$(16)"16"Y$(Z,2);
  108. 239 PRINT#1,CHR$(16)"40"Y$(Z,3);
  109. 240 PRINT#1,CHR$(16)"45"Y$(Z,4);
  110. 242 PRINT#1,CHR$(16)"50"Y$(Z,5);
  111. 245 PRINT#1,CHR$(16)"55"Y$(Z,6)
  112. 247 NEXTZ
  113. 250 PRINT#1
  114. 251 PRINT#1,"TOTALS[146][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210]"
  115. 252 PRINT#1,"CALORIES ";D
  116. 253 PRINT#1,"PROTEIN ";F
  117. 254 PRINT#1,"FATS  ";H
  118. 255 PRINT#1,"CARBOHYDRATES ";K
  119. 256 PRINT#1,"[168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168]"
  120. 257 CLOSE1
  121. 258 D=0:F=0:H=0:K=0:U=0
  122. 259 GOTO4000
  123. 998 REM WRITE FILE
  124. 999 POKESS,12:PRINTCHR$(147)
  125. 1000 PRINT"OPENING FILE TO WRITE"
  126. 1001 S=0:OPEN15,8,15:OPEN2,8,2,"@0:FOOD,SEQ,W"
  127. 1002 GOSUB10000
  128. 1003 S=S+1:PRINTCHR$(147)
  129. 1004 INPUT"  FOOD NAME";B$(S,1)
  130. 1005 IFB$(S,1)<>"END"THEN1008
  131. 1006 IFB$(S,1)="END"THENCLOSE2:GOSUB10000
  132. 1007 GOTO30000
  133. 1008 INPUT"TYPE/PORTION";B$(S,2)
  134. 1009 INPUT"   CALORIES";B$(S,3)
  135. 1010 INPUT"  PROTEIN ";B$(S,4)
  136. 1011 INPUT" FAT ";B$(S,5)
  137. 1012 INPUT" CARBOHYDRATES ";B$(S,6)
  138. 1013 INPUT"PRESS <1>TO SAVE<2>TO CHANGE";O
  139. 1014 IFO=1THEN1020
  140. 1015 IFO=2THENPRINTCHR$(147):GOTO1004
  141. 1020 PRINT#2,B$(S,1)
  142. 1021 PRINT#2,B$(S,2)
  143. 1022 PRINT#2,B$(S,3)
  144. 1023 PRINT#2,B$(S,4)
  145. 1024 PRINT#2,B$(S,5)
  146. 1025 PRINT#2,B$(S,6)
  147. 1030 IFST<>0GOTO22000:REM STATUS
  148. 1045 PRINTCHR$(147):GOTO1003
  149. 1050 CLOSE2
  150. 1060 GOSUB10000
  151. 1065 GOSUB30000
  152. 1070 GOTO3000
  153. 1998 REM READ FILE
  154. 1999 PRINTCHR$(147):PRINT"LOADING CALORIE INDEX"
  155. 2000 OPEN15,8,15:OPEN2,8,2,"0:FOOD,SEQ,R"
  156. 2003 GOSUB10000
  157. 2004 X=1:A=1
  158. 2005 INPUT#2,A$(A,1)
  159. 2006 INPUT#2,A$(A,2)
  160. 2007 INPUT#2,A$(A,3)
  161. 2008 INPUT#2,A$(A,4)
  162. 2009 INPUT#2,A$(A,5)
  163. 2010 INPUT#2,A$(A,6)
  164. 2011 PRINTTAB(10)"[147]LOADING CALORIE INDEX";TAB(20)X
  165. 2012 IFST<>0THEN11000
  166. 2013 IFST=64THEN2015
  167. 2014 X=X+1:A=A+1:GOTO2005
  168. 2015 CLOSE2
  169. 2016 GOSUB10000
  170. 2017 GOSUB30000
  171. 2018 PRINT"[144]":GOTO4000
  172. 2999 REM MAIN MENU
  173. 3000 PRINTCHR$(147):POKESS,12
  174. 3001 PRINT" [166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  175. 3002 FORA=1TO21
  176. 3003 PRINT" [166]                                    [166]"
  177. 3004 NEXTA
  178. 3005 PRINT" [166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  179. 3020 PRINT"":PRINTTAB(15)"MAIN MENU"
  180. 3025 PRINTTAB(4)"PRESS <C> TO CREATE NEW DATA FILE"
  181. 3030 PRINTTAB(4)"PRESS <D> FOR DAILY CALORIE MENU"
  182. 3035 PRINTTAB(4)"PRESS <U> TO UPDATE DATA"
  183. 3040 PRINTTAB(4)"PRESS <E> TO EXIT PROGRAM"
  184. 3045 GETLL$:IFLL$=""THEN3045
  185. 3050 IFLL$="C"THEN999
  186. 3055 IFLL$="D"THEN4000
  187. 3060 IFLL$="U"THEN5000
  188. 3065 IFLL$="E"THENPRINT"[147]":END
  189. 3067 END
  190. 3999 REM DAILY COUNT MENU **************
  191. 4000 PRINTCHR$(147)
  192. 4001 PRINT" [166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  193. 4002 FORA=1TO21
  194. 4003 PRINT" [166]                                    [166]"
  195. 4004 NEXTA
  196. 4005 PRINT" [166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  197. 4020 PRINT"":PRINTTAB(10)"DAILY CALORIE MENU"
  198. 4025 PRINT"":PRINTTAB(7)"PRESS <I> TO LOAD CALORIE INDEX"
  199. 4026 PRINT"":PRINTTAB(7)"PRESS <C> TO COUNT CALORIES"
  200. 4027 PRINTTAB(7)"PRESS[160]<S> FOR FOOD SEARCH"
  201. 4028 PRINT"":PRINTTAB(7)"PRESS <L> FOR CALORIE LIST"
  202. 4029 PRINT"":PRINTTAB(7)"PRESS <*> FOR NUTRIENT SEARCH"
  203. 4030 PRINT"":PRINTTAB(7)"PRESS <M> FOR MAIN MENU"
  204. 4035 GETO$:IFO$=""THEN4035
  205. 4040 IFO$="I"THEN1999
  206. 4041 IFO$="S"THEN30
  207. 4042 IFO$="C"THEN97
  208. 4043 IFO$="L"THEN50
  209. 4044 IFO$="*"THEN7000
  210. 4045 IFO$="M"THEN3000
  211. 4046 GOTO4035
  212. 4999 REM CHANGE**DELETE**ADD********
  213. 5000 PRINTCHR$(147)
  214. 5001 PRINT" [166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  215. 5002 FORA=1TO21
  216. 5003 PRINT" [166]                                    [166]"
  217. 5004 NEXTA
  218. 5005 PRINT" [166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  219. 5006 PRINT"":PRINTTAB(10)"UPDATE CALORIE INDEX"
  220. 5007 PRINTTAB(7)"ENTER # OF ENTRY TO CHANGE,"
  221. 5008 PRINTTAB(7)"ADD, OR DELETE."
  222. 5011 PRINTTAB(7)"TOTAL OF ENTRIES = ";X
  223. 5014 INPUT"TYPE #  HERE-----";J
  224. 5015 IFJ=0THEN5127
  225. 5030 FORB=1TOX
  226. 5050 IFJ=BTHEN5054
  227. 5052 NEXTB
  228. 5053 IFJ >XTHENGOTO6000
  229. 5054 PRINT"":INPUT"PRESS<1>TO DELETE <2> TO CHANGE";W
  230. 5055 IFW=1THENX=X+1:GOTO5000
  231. 5056 IFW=2THENPRINTCHR$(147):GOTO5057
  232. 5057 PRINT"F  ";A$(B,1)
  233. 5058 PRINT"T  ";A$(B,2)
  234. 5059 PRINT"C  ";A$(B,3)
  235. 5060 PRINT"P  ";A$(B,4)
  236. 5061 PRINT"F  ";A$(B,5)
  237. 5062 PRINT"C  ";A$(B,6)
  238. 5080 INPUT"";A$(B,1)
  239. 5085 INPUT"";A$(B,2)
  240. 5086 INPUT"";A$(B,3)
  241. 5087 INPUT"";A$(B,4)
  242. 5088 INPUT"";A$(B,5)
  243. 5089 INPUT"";A$(B,6)
  244. 5090 GOTO5115
  245. 5115 INPUT"PRESS<1>TO SAVE <2> TO CHANGE";O
  246. 5120 IFO=1THEN5000
  247. 5121 IFO=2THEN5080
  248. 5127 OPEN15,8,15:OPEN2,8,2,"@0:FOOD,SEQ,W"
  249. 5128 GOSUB10000
  250. 5129 FORB=1TOX
  251. 5130 PRINT#2,A$(B,1)
  252. 5131 PRINT#2,A$(B,2)
  253. 5132 PRINT#2,A$(B,3)
  254. 5133 PRINT#2,A$(B,4)
  255. 5134 PRINT#2,A$(B,5)
  256. 5135 PRINT#2,A$(B,6)
  257. 5136 NEXTB
  258. 5137 IFST<>0GOTO11000
  259. 5150 CLOSE2
  260. 5160 GOSUB10000
  261. 5170 CLOSE15
  262. 5171 GOTO30000
  263. 6000 X=X+1:B=X
  264. 6002 PRINTCHR$(147)
  265. 6005 INPUT"FOOD";A$(B,1)
  266. 6007 INPUT"TYPE/PORTION";A$(B,2)
  267. 6010 INPUT"CAL.";A$(B,3)
  268. 6015 INPUT"PROTEIN";A$(B,4)
  269. 6020 INPUT"FAT";A$(B,5)
  270. 6025 INPUT"CARB";A$(B,6)
  271. 6060 INPUT"PRESS <1> TO SAVE <2> TO CHANGE";TT
  272. 6065 IFTT=1THEN5000
  273. 6070 IFTT=2THENPRINTCHR$(147):GOTO6005
  274. 6999 REM *NUTRIENT CONTENT COUNT******
  275. 7000 PRINTCHR$(147):PRINT"HIGH/LOW NUTRIENT CONTENT[146]":R=0:G=0
  276. 7001 PRINT""
  277. 7002 PRINTTAB(10)"3=CALORIES"
  278. 7003 PRINTTAB(10)"4=PROTEINS"
  279. 7004 PRINTTAB(10)"5=FATS"
  280. 7005 PRINTTAB(10)"6=CARBOHYDRATES"
  281. 7006 INPUT"HIGH IN (NAME)";SS$
  282. 7007 INPUT"TYPE # OF NUTRIENT FOR HIGH";CC
  283. 7008 INPUT"AND LOW IN (NAME)?";TT$
  284. 7009 INPUT"TYPE # OF NUTRIENT FOR LOW";DD
  285. 7010 PRINT"[147]MINUMUM AMOUNT FOR ";SS$:INPUTFF$
  286. 7011 PRINT"MAXIMUM AMOUNT FOR ";TT$:INPUTGG$
  287. 7012 IFSS$="CALORIES"THENMM$="CALORIES"
  288. 7013 IFSS$<>"CALORIES"THENMM$="GRAMS"
  289. 7014 IFTT$="CALORIES"THENNN$="CALORIES"
  290. 7015 IFTT$<>"CALORIES"THENNN$="GRAMS"
  291. 7016 PRINTCHR$(147):PRINT"S[146]CREEN/P[146]RINTER"
  292. 7017 GETII$:IFII$=""THEN7017
  293. 7018 IFII$="S"THEN7022
  294. 7019 IFII$="P"THEN7085
  295. 7020 GOTO7017
  296. 7022 FORB=1TOX
  297. 7030 IFVAL(A$(B,CC))>=VAL(FF$)ANDVAL(A$(B,DD))<=VAL(GG$)THEN7032
  298. 7031 GOTO7040
  299. 7032 R=R+1:G=G+1:PRINTA$(B,1),A$(B,2)
  300. 7033 IFR<=16THEN7040
  301. 7034 IFR=17THENR=0:GOTO7035
  302. 7035 PRINT"PRESS RETURN TO CONTINUE"
  303. 7036 GETYY$:IFYY$=""THEN7036
  304. 7037 IFYY$=CHR$(13)THENPRINTCHR$(147):GOTO7040
  305. 7040 NEXTB
  306. 7045 IFG=0THENPRINT"NO FOODS MET THOSE REQUIREMENTS[146]"
  307. 7050 PRINT"N[146]UTRITIONAL ANALYSIS/D[146]AILY MENU"
  308. 7055 GETWW$:IFWW$=""THEN7055
  309. 7056 IFWW$="N"THEN7000
  310. 7057 IFWW$="D"THEN4000
  311. 7058 GOTO7055
  312. 7085 FORB=1TOX
  313. 7086 IFVAL(A$(B,CC))>=VAL(FF$)ANDVAL(A$(B,DD))<=VAL(GG$)THENG=G+1:GOTO7089
  314. 7087 NEXTB
  315. 7088 GOTO7091
  316. 7089 Y$(G,1)=A$(B,1):Y$(G,2)=A$(B,2):Y$(G,3)=A$(B,3):Y$(G,4)=A$(B,4)
  317. 7090 Y$(G,5)=A$(B,5):Y$(G,6)=A$(B,6):GOTO7087
  318. 7091 IFG=0THENPRINT"NO FOODS MET THOSE REQUIREMENTS[146]":GOTO7155
  319. 7092 OPEN1,4:CMD1:
  320. 7093 PRINT#1,"NUTRITIONAL ANALYSIS------------------------------------"
  321. 7094 PRINT#1,"BELOW ARE LISTED FOODS HIGH IN ";SS$;" WITH A MINIMUM ";
  322. 7095 PRINT#1,"AMOUNT OF ";FF$;" ";MM$
  323. 7096 PRINT#1,"AND LOW IN ";TT$;" ";"WITH A MAXIMUM AMOUNT OF ";GG$;" ";NN$
  324. 7097 PRINT#1
  325. 7100 PRINT#1,"FOOD";
  326. 7105 PRINT#1,CHR$(16)"15";"TYPE/PORTION";
  327. 7106 PRINT#1,CHR$(16)"45";"CAL";
  328. 7107 PRINT#1,CHR$(16)"50";"P";
  329. 7108 PRINT#1,CHR$(16)"55";"F";
  330. 7109 PRINT#1,CHR$(16)"60";"CARB"
  331. 7110 PRINT#1,"[197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197]"
  332. 7118 FORI=1TOG
  333. 7119 PRINT#1,Y$(I,1);
  334. 7120 PRINT#1,CHR$(16)"15"Y$(I,2);
  335. 7125 PRINT#1,CHR$(16)"45"Y$(I,3);
  336. 7130 PRINT#1,CHR$(16)"50"Y$(I,4);
  337. 7135 PRINT#1,CHR$(16)"55"Y$(I,5);
  338. 7140 PRINT#1,CHR$(16)"60"Y$(I,6)
  339. 7145 NEXTI
  340. 7150 CLOSE1
  341. 7155 PRINT"N[146]UTRITION ANALYSIS/D[146]AILY MENU"
  342. 7160 GETEE$:IFEE$=""THEN7160
  343. 7165 IFEE$="N"THEN7000
  344. 7170 IFEE$="D"THEN4000
  345. 7175 GOTO7160
  346. 9990 REM***SUBR CHECK ERROR CHAN*******
  347. 10000 INPUT#15,CZ,MZ$,TZ,SZ
  348. 10010 IFCZ<20THENRETURN:REM OK
  349. 10020 PRINT"DOS ERRO:"
  350. 10030 PRINTCZ,MZ$,TZ,SZ
  351. 10040 STOP
  352. 10050 REM--------------
  353. 10990 REM * STATUS NOT ZERO********
  354. 11000 IF ST=64 THEN CLOSE2:PRINT"END OF DATA":FORA=1TO1500:NEXT:GOTO2015
  355. 11010 PRINT"STATUS ERROR":STOP
  356. 30000 CLOSE15,8,15:GOTO4000
  357.